home *** CD-ROM | disk | FTP | other *** search
/ Sunday Savers: Sharing Fun! I Know My Savior Lives / Sunday Savers: Sharing Fun! I Know My Savior Lives.iso / pc / main.dxr / 00011_print.ls < prev    next >
Encoding:
Text File  |  2009-10-06  |  870 b   |  39 lines
  1. on mouseDown
  2.   global speed
  3.   sprite(6).visible = 0
  4.   sprite(40).visible = 1
  5.   member("copyNumber").text = "1"
  6.   if speed = "slow" then
  7.     if sprite(44).locV < 142 then
  8.       repeat with x = 38 to 54
  9.         sprite(x).locV = sprite(x).locV + 230
  10.       end repeat
  11.     end if
  12.   else
  13.     repeat while sprite(44).locV < 142
  14.       repeat with x = 38 to 54
  15.         sprite(x).locV = sprite(x).locV + 10
  16.       end repeat
  17.       updateStage()
  18.     end repeat
  19.   end if
  20. end
  21.  
  22. on mouseLeave
  23.   global speed
  24.   if (speed = "slow") and (sprite(44).locV > 91) then
  25.     repeat with x = 38 to 54
  26.       sprite(x).locV = sprite(x).locV - 230
  27.     end repeat
  28.   else
  29.     repeat while sprite(44).locV > -82
  30.       repeat with x = 38 to 54
  31.         sprite(x).locV = sprite(x).locV - 10
  32.       end repeat
  33.       updateStage()
  34.     end repeat
  35.   end if
  36.   sprite(6).visible = 1
  37.   sprite(40).visible = 0
  38. end
  39.